home *** CD-ROM | disk | FTP | other *** search
/ Digital Photo Book 16: Sister 7 / Digital Photo Book 16: Sister 7.iso / mac / DATA / main.dir / 00021_Script_PHOTOBOOKêßå‰ < prev    next >
Text File  |  2004-11-21  |  4KB  |  140 lines
  1. global photo_max
  2.  
  3. property isauto
  4. property spritenum
  5. property cnt
  6. property photo_no
  7. property org_member
  8. property paging
  9. property page_cnt
  10. property page_cnt_max
  11.  
  12. on beginsprite
  13.   isauto = false
  14.   photo_no = 0
  15.   org_member = sprite(spritenum).member
  16.   sprite(spritenum).member = photo_get(photo_no)
  17.   paging = 0
  18.   page_cnt_max = 10
  19. end
  20.  
  21. on endsprite
  22.   sprite(spritenum).member = org_member
  23.   sprite(spritenum + 1).puppet = false
  24. end
  25.  
  26. on photo_next
  27.   stop_paging  
  28.   paging = 1
  29.   page_cnt = 0
  30.   page_cnt_max = 10
  31.   sprite(spritenum + 1).puppet = true
  32.   sprite(spritenum + 1).member = sprite(spritenum).member
  33.   sprite(spritenum + 1).loc = sprite(spritenum).loc
  34.   
  35.   photo_no = photo_no + 1
  36.   if photo_no >= photo_max then photo_no = 0 
  37.   sprite(spritenum).member = photo_get(photo_no)
  38. end
  39.  
  40. on photo_prev
  41.   stop_paging
  42.   paging = -1
  43.   page_cnt = 0
  44.   page_cnt_max = 10
  45.   
  46.   photo_no = photo_no - 1
  47.   if photo_no < 0 then photo_no = photo_max - 1
  48.   
  49.   sprite(spritenum + 1).puppet = true
  50.   sprite(spritenum + 1).member = photo_get(photo_no)
  51.   sprite(spritenum + 1).loc = sprite(spritenum).loc
  52.   sprite(spritenum + 1).locH = sprite(spritenum).locH
  53. end
  54.  
  55. on photo_auto
  56.   isauto = true
  57.   cnt = 1000
  58. end
  59.  
  60. on photo_manual
  61.   isauto = false
  62. end
  63.  
  64. on stop_paging 
  65.   if paging then
  66.     sprite(spritenum).member = photo_get(photo_no)
  67.     sprite(spritenum + 1).puppet = false
  68.     paging = 0
  69.   end if
  70. end
  71.  
  72.  
  73. on exitFrame me
  74.   -- ﾉXﾉNﾉ酣[ﾉ肛瑪
  75.   if paging then
  76.     page_cnt = page_cnt + 1
  77.     if page_cnt < page_cnt_max then
  78.       n = 800 * page_cnt / page_cnt_max
  79.       v = 600 * page_cnt / page_cnt_max
  80.       case paging of
  81.         1:
  82.           -- 礒ﾇOUT
  83.           sprite(spritenum + 1).locH = sprite(spritenum).locH + n
  84.         -2:
  85.           -- 礒竓ﾇｩﾇﾁIN
  86.           sprite(spritenum + 1).locH = sprite(spritenum).locH + 800 - n
  87.           sprite(spritenum + 1).locV = sprite(spritenum).locV + 600 - v
  88.         -3:
  89.           -- 竓ﾇｩﾇﾁIN
  90.           sprite(spritenum + 1).locV = sprite(spritenum).locV + 600 - v
  91.         -4:
  92.           -- 銜竓ﾇｩﾇﾁIN
  93.           sprite(spritenum + 1).locH = sprite(spritenum).locH - 800 + n
  94.           sprite(spritenum + 1).locV = sprite(spritenum).locV + 600 - v
  95.         -5:
  96.           -- 銜ﾇｩﾇﾁIN
  97.           sprite(spritenum + 1).locH = sprite(spritenum).locH - 800 + v
  98.         -6:
  99.           -- 銜閼ﾇｩﾇﾁIN
  100.           sprite(spritenum + 1).locH = sprite(spritenum).locH - 800 + n
  101.           sprite(spritenum + 1).locV = sprite(spritenum).locV - 600 + v
  102.         -7:
  103.           -- 閼ﾇｩﾇﾁIN
  104.           sprite(spritenum + 1).locV = sprite(spritenum).locV - 600 + v          
  105.         -8:
  106.           -- 礒閼ﾇｩﾇﾁIN
  107.           sprite(spritenum + 1).locH = sprite(spritenum).locH + 800 - n
  108.           sprite(spritenum + 1).locV = sprite(spritenum).locV - 600 + v
  109.         -1:
  110.           -- 礒ﾇｩﾇﾁIN
  111.           sprite(spritenum + 1).locH = sprite(spritenum).locH + 800 - n
  112.       end case
  113.     else
  114.       paging = 0
  115.       sprite(spritenum).member = photo_get(photo_no)
  116.       sprite(spritenum + 1).puppet = false
  117.     end if
  118.   end if
  119.   
  120.   -- 鬩ﾆﾇｼ鵈ﾇﾃ鬆鷽ﾇ敝塞ﾈ
  121.   if isauto and paging = 0 then
  122.     cnt = cnt + 1
  123.     if cnt > 150 then
  124.       cnt = 0
  125.       paging = - random(8)
  126.       page_cnt = 0
  127.       page_cnt_max = 50      
  128.       photo_no = photo_no + 1
  129.       if photo_no >= photo_max then photo_no = 0 
  130.       
  131.       sprite(spritenum + 1).puppet = true
  132.       sprite(spritenum + 1).member = photo_get(photo_no)
  133.       sprite(spritenum + 1).loc = sprite(spritenum).loc
  134.       exitframe
  135.       
  136.     end if
  137.   end if  
  138. end
  139.  
  140.